home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flwlb12.dir / 00130_Script_130 < prev    next >
Text File  |  1994-11-15  |  2KB  |  89 lines
  1. on startMovie
  2.   cursor 4
  3.   global nowFrame, currMM
  4.   set currMM = "FLWWT"
  5.   
  6.   global seeAlsoness
  7.   set seeAlsoness = FALSE
  8.   
  9.   preLoadCast A11,A15
  10.   
  11.   puppetSprite 21, TRUE
  12.   puppetSprite 22, TRUE
  13.   puppetSprite 23, TRUE
  14.   puppetSprite 11, TRUE
  15.   set the immediate of sprite 23 to TRUE
  16.   set the stretch of sprite 23 to FALSE
  17. end startMovie
  18.  
  19. on saveLocals
  20.   global lastMovie, lastFrame, nowFrame
  21.   set lastFrame = nowFrame
  22.   set lastMovie = "FLWLB12"
  23. end saveLocals
  24.  
  25. on buttonState
  26.   global FrankNav, bFlag
  27.   
  28.   if rollover(11) then
  29.     set the castNum of sprite 11 to 1090
  30.     if the mouseDown then
  31.       set the castNum of sprite 11 to 1091
  32.     end if
  33.   else 
  34.     set the castNum of sprite 11 to 1089
  35.   end if
  36.   
  37.   if rollover(5) then
  38.     rollCheck
  39.   else 
  40.     set pos = 0
  41.     cursor -1
  42.   end if
  43.   
  44.   if (the mouseV > 200) or (bFlag = TRUE) then
  45.     doState
  46.   end if
  47. end buttonState
  48.  
  49. on rollCheck
  50.   global right, left, forw, down, pos
  51.   if the mouseH>=257 and the mouseH<=347 and the mouseV>67 and the mouseV<307 then
  52.     if right = 1 then
  53.       set pos = 3
  54.       cursor [1065,1066]
  55.     else
  56.       set pos = 0
  57.       cursor [1071,1072]
  58.     end if
  59.   else if the mouseH>=27 and the mouseH<=119 and the mouseV>67 and the mouseV<307 then
  60.     if left = 1 then
  61.       set pos = 1
  62.       cursor [1069,1070]
  63.     else
  64.       set pos = 0
  65.       cursor [1071,1072]
  66.     end if
  67.   else if the mouseH>=117 and the mouseH<=257 and the mouseV>67 and the mousev<217 then
  68.     if forw = 1 then
  69.       set pos = 2
  70.       cursor [1067,1068]
  71.     else
  72.       set pos = 0
  73.       cursor [1071,1072]
  74.     end if
  75.   else if the mouseH>=117 and the mouseH<=257 and the mouseV>217 and the mouseV<307 then
  76.     if down = 1 then
  77.       set pos = 4
  78.       cursor [1073,1074]
  79.     else if down = 0 and forw = 1 then
  80.       set pos = 2 
  81.       cursor [1067,1068]
  82.     else
  83.       set pos = 0
  84.       cursor [1071,1072]
  85.     end if
  86.   end if
  87. end rollCheck
  88.  
  89.